home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 10 / FM Towns Free Software Collection 10.iso / fb386 / tool / watanabe / short / sound.bas < prev    next >
BASIC Source File  |  1994-10-06  |  762b  |  36 lines
  1. 100 CLEAR
  2. 110 DEFINT A-Z
  3. 120 X1=0:B1=0:X2=0:B2=0
  4. 130 SCREEN 1,0,3,1
  5. 140   COLOR 7,0:CLS
  6. 150   WINDOW(0,0)-(1023,511)
  7. 152   VIEW  (0,0)-(1023,511)
  8. 160   LINE(0,127)-(639,127),PSET,5
  9. 170   LINE(0,256)-(639,256),PSET,2
  10. 176   LINE(0,369)-(639,369),PSET,5
  11. 180 SCREEN 1,1
  12. 190   WINDOW(0,0)-(1023,511)
  13. 200   VIEW  (0,0)-(1023,511)
  14. 210 X1=0:B1=0:X2=0:B2=128
  15. 220 '
  16. 230 *READ
  17. 240   B1=INP(&H4E7,1)
  18. 250   IF 240<B1 THEN B1=240
  19. 260   X1=X2+1
  20. 270   IF X1>639 THEN CLS:X1=1:X2=0
  21. 280   GOSUB *CG
  22. 290   '
  23. 300   B2=INP(&H4E7,1)
  24. 310   IF 240<B2 THEN B2=240
  25. 320   X2=X1+1
  26. 330   IF X2>639 THEN CLS:X1=0:X2=1
  27. 340   GOSUB *CG
  28. 350 '
  29. 360 GOTO *READ
  30. 370 '
  31. 380 '
  32. 390 *CG
  33. 400   IF B>127 THEN B=127-B
  34. 410   LINE(X1,B1+128)-(X2,B2+128),PSET,4
  35. 420   RETURN
  36.